ЗАВДАННЯ РОЗРАХУВАТИ ЗНАЧЕННЯ ЗАДАНОЇ ЕЛЕМЕНТАРНОЇ ФУНКЦІЇ F(X) БЕЗПОСЕРЕДНЬО ЗА ФОРМУЛОЮ ТА ЯК СУМУ ФУНКЦІОНАЛЬНОГО РЯДУ (F(X)=
). ПРИ ОБЧИСЛЕННІ ЗАБЕЗПЕЧИТИ ПОХИБКУ НЕ БІЛЬШЕ ЗА . ПОХИБКУ ОЦІНЮВАТИ ЗА АБСОЛЮТНОЮ ВЕЛИЧИНОЮ НАСТУПНОГО ЧЛЕНУ РЯДУ. f(x)= sin(x)/(x); х=-0.196; 10-3; 1.ПОСТАНОВКА ЗАДАЧІ. Необхідно обчислити f(x) безпосередньо та як суму функціонального ряду (f(x)=
) маючи значення х та похибку d. Скористаємося рекурентною формулою швидкого доступу до наступного члена ряду. 2.РОЗРОБКА СТРУКТУРИ ДАНИХ. Позначення  Ім’я  Тип Призначення, опис   x  x  дійсна  аргумент вхідна   f  F  дійсна  значення функції вихідна   n  n  ціла  номер члену ряду   аn  a  дійсна функція  n-й член ряду    d  дійсна константа  похибка обчислення суми ряду  ∑  S  дійсна  сума ряду вихідна   3.РОЗРОБКА АЛГОРИТМУ Оскільки необхідна кількість членів ряду невідома наперед, то необхідно використовувати цикли “до” або “поки” з виходом з них по досягненню заданої точності обчислень Треба відвести змінну для накопичення суми членів ряду, яку перед початком циклу потрібно обнулити. Для порівняння заданої та досягнутої похибок треба розрахувати f(x). H T 4.ТЕКСТ ПРОГРАМИ МОВОЮ PASCAL. program lab_7; var x,S,f,a,n,d: real; BEGIN x:=-0.196; a:=1; s:=0; n:=0; d:=0.001; f:=sin(x)/(x); Repeat s:=s+a; writeln('n=',n:1:1,' a=',a:6:5,' S=',s:6:5); n:=n+1; a:=a*(-1)*x*x/((2*n+1)*(2*n)); until abs(a)<d; writeln (''); writeln ('');writeln (''); writeln('n=',n:6:5); writeln ('syma rjady:', S:6:5); writeln ('funkcija:', f:6:5); writeln ('Zadana pohubka',d:5:4); writeln ('Dosjagnyta pohubka',a:5:4); readln; END. 5.Налагодження і результати тестування.
Висновок: я вирахував функцію f(x) безпосередньо та як суму функціонального ряду (f(x)=
) і досягнув заданої точності f(x) Співпало з сумою функціонального ряду. Міністерство освіти і науки україни НУ «Львівська Політехніка» Кафедра теоретичної радіотехніки та радіовимірювань.
ЗВІТ З ЛАБОРАТОРНОЇ РОБОТИ №7 НА ТЕМУ: «ОБЧИСЛЕННЯ СУМ ФУНКЦІОНАЛЬНИХ РЯДІВ.» Варіант №8 Підготував: студент групи РТ-11 Ленів Остап Прийняв: Нестор Н. І. Львів 2010р.